home *** CD-ROM | disk | FTP | other *** search
/ Kompuutteri K-CD 2002 #1 / K-CD_2002-01.iso / Delphi / INSTALL / program files / Borland / Delphi6 / Source / Rtl / Win / Dlgs.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  2001-05-22  |  7.9 KB  |  398 lines
  1. { *********************************************************************** }
  2. {                                                                         }
  3. { Delphi Runtime Library                                                  }
  4. {                                                                         }
  5. { Copyright (c) 1992-2001 Borland Software Corporation                    }
  6. {                                                                         }
  7. { *********************************************************************** }
  8.  
  9. unit Dlgs;
  10.  
  11. {$WEAKPACKAGEUNIT}
  12.  
  13. (*$HPPEMIT '#include <dlgs.h>'*)
  14.  
  15. interface
  16.  
  17. { Constants }
  18.  
  19. const
  20.   {$EXTERNALSYM ctlFirst}
  21.   ctlFirst = $0400;
  22.   {$EXTERNALSYM ctlLast}
  23.   ctlLast = $04ff;
  24.  
  25. { Push buttons }
  26.  
  27.   {$EXTERNALSYM psh1}
  28.   psh1 = $0400;
  29.   {$EXTERNALSYM psh2}
  30.   psh2 = $0401;
  31.   {$EXTERNALSYM psh3}
  32.   psh3 = $0402;
  33.   {$EXTERNALSYM psh4}
  34.   psh4 = $0403;
  35.   {$EXTERNALSYM psh5}
  36.   psh5 = $0404;
  37.   {$EXTERNALSYM psh6}
  38.   psh6 = $0405;
  39.   {$EXTERNALSYM psh7}
  40.   psh7 = $0406;
  41.   {$EXTERNALSYM psh8}
  42.   psh8 = $0407;
  43.   {$EXTERNALSYM psh9}
  44.   psh9 = $0408;
  45.   {$EXTERNALSYM psh10}
  46.   psh10 = $0409;
  47.   {$EXTERNALSYM psh11}
  48.   psh11 = $040a;
  49.   {$EXTERNALSYM psh12}
  50.   psh12 = $040b;
  51.   {$EXTERNALSYM psh13}
  52.   psh13 = $040c;
  53.   {$EXTERNALSYM psh14}
  54.   psh14 = $040d;
  55.   {$EXTERNALSYM psh15}
  56.   psh15 = $040e;
  57.   {$EXTERNALSYM pshHelp}
  58.   pshHelp = psh15;
  59.   {$EXTERNALSYM psh16}
  60.   psh16 = $040f;
  61.  
  62. { Checkboxes }
  63.  
  64.   {$EXTERNALSYM chx1}
  65.   chx1 = $0410;
  66.   {$EXTERNALSYM chx2}
  67.   chx2 = $0411;
  68.   {$EXTERNALSYM chx3}
  69.   chx3 = $0412;
  70.   {$EXTERNALSYM chx4}
  71.   chx4 = $0413;
  72.   {$EXTERNALSYM chx5}
  73.   chx5 = $0414;
  74.   {$EXTERNALSYM chx6}
  75.   chx6 = $0415;
  76.   {$EXTERNALSYM chx7}
  77.   chx7 = $0416;
  78.   {$EXTERNALSYM chx8}
  79.   chx8 = $0417;
  80.   {$EXTERNALSYM chx9}
  81.   chx9 = $0418;
  82.   {$EXTERNALSYM chx10}
  83.   chx10 = $0419;
  84.   {$EXTERNALSYM chx11}
  85.   chx11 = $041a;
  86.   {$EXTERNALSYM chx12}
  87.   chx12 = $041b;
  88.   {$EXTERNALSYM chx13}
  89.   chx13 = $041c;
  90.   {$EXTERNALSYM chx14}
  91.   chx14 = $041d;
  92.   {$EXTERNALSYM chx15}
  93.   chx15 = $041e;
  94.   {$EXTERNALSYM chx16}
  95.   chx16 = $041f;
  96.  
  97. { Radio buttons }
  98.  
  99.   {$EXTERNALSYM rad1}
  100.   rad1 = $0420;
  101.   {$EXTERNALSYM rad2}
  102.   rad2 = $0421;
  103.   {$EXTERNALSYM rad3}
  104.   rad3 = $0422;
  105.   {$EXTERNALSYM rad4}
  106.   rad4 = $0423;
  107.   {$EXTERNALSYM rad5}
  108.   rad5 = $0424;
  109.   {$EXTERNALSYM rad6}
  110.   rad6 = $0425;
  111.   {$EXTERNALSYM rad7}
  112.   rad7 = $0426;
  113.   {$EXTERNALSYM rad8}
  114.   rad8 = $0427;
  115.   {$EXTERNALSYM rad9}
  116.   rad9 = $0428;
  117.   {$EXTERNALSYM rad10}
  118.   rad10 = $0429;
  119.   {$EXTERNALSYM rad11}
  120.   rad11 = $042a;
  121.   {$EXTERNALSYM rad12}
  122.   rad12 = $042b;
  123.   {$EXTERNALSYM rad13}
  124.   rad13 = $042c;
  125.   {$EXTERNALSYM rad14}
  126.   rad14 = $042d;
  127.   {$EXTERNALSYM rad15}
  128.   rad15 = $042e;
  129.   {$EXTERNALSYM rad16}
  130.   rad16 = $042f;
  131.  
  132. { Groups, frames, rectangles, and icons }
  133.  
  134.   {$EXTERNALSYM grp1}
  135.   grp1 = $0430;
  136.   {$EXTERNALSYM grp2}
  137.   grp2 = $0431;
  138.   {$EXTERNALSYM grp3}
  139.   grp3 = $0432;
  140.   {$EXTERNALSYM grp4}
  141.   grp4 = $0433;
  142.   {$EXTERNALSYM frm1}
  143.   frm1 = $0434;
  144.   {$EXTERNALSYM frm2}
  145.   frm2 = $0435;
  146.   {$EXTERNALSYM frm3}
  147.   frm3 = $0436;
  148.   {$EXTERNALSYM frm4}
  149.   frm4 = $0437;
  150.   {$EXTERNALSYM rct1}
  151.   rct1 = $0438;
  152.   {$EXTERNALSYM rct2}
  153.   rct2 = $0439;
  154.   {$EXTERNALSYM rct3}
  155.   rct3 = $043a;
  156.   {$EXTERNALSYM rct4}
  157.   rct4 = $043b;
  158.   {$EXTERNALSYM ico1}
  159.   ico1 = $043c;
  160.   {$EXTERNALSYM ico2}
  161.   ico2 = $043d;
  162.   {$EXTERNALSYM ico3}
  163.   ico3 = $043e;
  164.   {$EXTERNALSYM ico4}
  165.   ico4 = $043f;
  166.  
  167. { Static text }
  168.  
  169.   {$EXTERNALSYM stc1}
  170.   stc1 = $0440;
  171.   {$EXTERNALSYM stc2}
  172.   stc2 = $0441;
  173.   {$EXTERNALSYM stc3}
  174.   stc3 = $0442;
  175.   {$EXTERNALSYM stc4}
  176.   stc4 = $0443;
  177.   {$EXTERNALSYM stc5}
  178.   stc5 = $0444;
  179.   {$EXTERNALSYM stc6}
  180.   stc6 = $0445;
  181.   {$EXTERNALSYM stc7}
  182.   stc7 = $0446;
  183.   {$EXTERNALSYM stc8}
  184.   stc8 = $0447;
  185.   {$EXTERNALSYM stc9}
  186.   stc9 = $0448;
  187.   {$EXTERNALSYM stc10}
  188.   stc10 = $0449;
  189.   {$EXTERNALSYM stc11}
  190.   stc11 = $044a;
  191.   {$EXTERNALSYM stc12}
  192.   stc12 = $044b;
  193.   {$EXTERNALSYM stc13}
  194.   stc13 = $044c;
  195.   {$EXTERNALSYM stc14}
  196.   stc14 = $044d;
  197.   {$EXTERNALSYM stc15}
  198.   stc15 = $044e;
  199.   {$EXTERNALSYM stc16}
  200.   stc16 = $044f;
  201.   {$EXTERNALSYM stc17}
  202.   stc17 = $0450;
  203.   {$EXTERNALSYM stc18}
  204.   stc18 = $0451;
  205.   {$EXTERNALSYM stc19}
  206.   stc19 = $0452;
  207.   {$EXTERNALSYM stc20}
  208.   stc20 = $0453;
  209.   {$EXTERNALSYM stc21}
  210.   stc21 = $0454;
  211.   {$EXTERNALSYM stc22}
  212.   stc22 = $0455;
  213.   {$EXTERNALSYM stc23}
  214.   stc23 = $0456;
  215.   {$EXTERNALSYM stc24}
  216.   stc24 = $0457;
  217.   {$EXTERNALSYM stc25}
  218.   stc25 = $0458;
  219.   {$EXTERNALSYM stc26}
  220.   stc26 = $0459;
  221.   {$EXTERNALSYM stc27}
  222.   stc27 = $045a;
  223.   {$EXTERNALSYM stc28}
  224.   stc28 = $045b;
  225.   {$EXTERNALSYM stc29}
  226.   stc29 = $045c;
  227.   {$EXTERNALSYM stc30}
  228.   stc30 = $045d;
  229.   {$EXTERNALSYM stc31}
  230.   stc31 = $045e;
  231.   {$EXTERNALSYM stc32}
  232.   stc32 = $045f;
  233.  
  234. { Listboxes }
  235.  
  236.   {$EXTERNALSYM lst1}
  237.   lst1 = $0460;
  238.   {$EXTERNALSYM lst2}
  239.   lst2 = $0461;
  240.   {$EXTERNALSYM lst3}
  241.   lst3 = $0462;
  242.   {$EXTERNALSYM lst4}
  243.   lst4 = $0463;
  244.   {$EXTERNALSYM lst5}
  245.   lst5 = $0464;
  246.   {$EXTERNALSYM lst6}
  247.   lst6 = $0465;
  248.   {$EXTERNALSYM lst7}
  249.   lst7 = $0466;
  250.   {$EXTERNALSYM lst8}
  251.   lst8 = $0467;
  252.   {$EXTERNALSYM lst9}
  253.   lst9 = $0468;
  254.   {$EXTERNALSYM lst10}
  255.   lst10 = $0469;
  256.   {$EXTERNALSYM lst11}
  257.   lst11 = $046a;
  258.   {$EXTERNALSYM lst12}
  259.   lst12 = $046b;
  260.   {$EXTERNALSYM lst13}
  261.   lst13 = $046c;
  262.   {$EXTERNALSYM lst14}
  263.   lst14 = $046d;
  264.   {$EXTERNALSYM lst15}
  265.   lst15 = $046e;
  266.   {$EXTERNALSYM lst16}
  267.   lst16 = $046f;
  268.  
  269. { Combo boxes }
  270.  
  271.   {$EXTERNALSYM cmb1}
  272.   cmb1 = $0470;
  273.   {$EXTERNALSYM cmb2}
  274.   cmb2 = $0471;
  275.   {$EXTERNALSYM cmb3}
  276.   cmb3 = $0472;
  277.   {$EXTERNALSYM cmb4}
  278.   cmb4 = $0473;
  279.   {$EXTERNALSYM cmb5}
  280.   cmb5 = $0474;
  281.   {$EXTERNALSYM cmb6}
  282.   cmb6 = $0475;
  283.   {$EXTERNALSYM cmb7}
  284.   cmb7 = $0476;
  285.   {$EXTERNALSYM cmb8}
  286.   cmb8 = $0477;
  287.   {$EXTERNALSYM cmb9}
  288.   cmb9 = $0478;
  289.   {$EXTERNALSYM cmb10}
  290.   cmb10 = $0479;
  291.   {$EXTERNALSYM cmb11}
  292.   cmb11 = $047a;
  293.   {$EXTERNALSYM cmb12}
  294.   cmb12 = $047b;
  295.   {$EXTERNALSYM cmb13}
  296.   cmb13 = $047c;
  297.   {$EXTERNALSYM cmb14}
  298.   cmb14 = $047d;
  299.   {$EXTERNALSYM cmb15}
  300.   cmb15 = $047e;
  301.   {$EXTERNALSYM cmb16}
  302.   cmb16 = $047f;
  303.  
  304. { Edit controls }
  305.  
  306.   {$EXTERNALSYM edt1}
  307.   edt1 = $0480;
  308.   {$EXTERNALSYM edt2}
  309.   edt2 = $0481;
  310.   {$EXTERNALSYM edt3}
  311.   edt3 = $0482;
  312.   {$EXTERNALSYM edt4}
  313.   edt4 = $0483;
  314.   {$EXTERNALSYM edt5}
  315.   edt5 = $0484;
  316.   {$EXTERNALSYM edt6}
  317.   edt6 = $0485;
  318.   {$EXTERNALSYM edt7}
  319.   edt7 = $0486;
  320.   {$EXTERNALSYM edt8}
  321.   edt8 = $0487;
  322.   {$EXTERNALSYM edt9}
  323.   edt9 = $0488;
  324.   {$EXTERNALSYM edt10}
  325.   edt10 = $0489;
  326.   {$EXTERNALSYM edt11}
  327.   edt11 = $048a;
  328.   {$EXTERNALSYM edt12}
  329.   edt12 = $048b;
  330.   {$EXTERNALSYM edt13}
  331.   edt13 = $048c;
  332.   {$EXTERNALSYM edt14}
  333.   edt14 = $048d;
  334.   {$EXTERNALSYM edt15}
  335.   edt15 = $048e;
  336.   {$EXTERNALSYM edt16}
  337.   edt16 = $048f;
  338.  
  339. { Scroll bars }
  340.  
  341.   {$EXTERNALSYM scr1}
  342.   scr1 = $0490;
  343.   {$EXTERNALSYM scr2}
  344.   scr2 = $0491;
  345.   {$EXTERNALSYM scr3}
  346.   scr3 = $0492;
  347.   {$EXTERNALSYM scr4}
  348.   scr4 = $0493;
  349.   {$EXTERNALSYM scr5}
  350.   scr5 = $0494;
  351.   {$EXTERNALSYM scr6}
  352.   scr6 = $0495;
  353.   {$EXTERNALSYM scr7}
  354.   scr7 = $0496;
  355.   {$EXTERNALSYM scr8}
  356.   scr8 = $0497;
  357.  
  358. { Dialog resource ordinals }
  359.  
  360.   {$EXTERNALSYM FILEOPENORD}
  361.   FILEOPENORD = 1536;
  362.   {$EXTERNALSYM MULTIFILEOPENORD}
  363.   MULTIFILEOPENORD = 1537;
  364.   {$EXTERNALSYM PRINTDLGORD}
  365.   PRINTDLGORD = 1538;
  366.   {$EXTERNALSYM PRNSETUPDLGORD}
  367.   PRNSETUPDLGORD = 1539;
  368.   {$EXTERNALSYM FINDDLGORD}
  369.   FINDDLGORD = 1540;
  370.   {$EXTERNALSYM REPLACEDLGORD}
  371.   REPLACEDLGORD = 1541;
  372.   {$EXTERNALSYM FONTDLGORD}
  373.   FONTDLGORD = 1542;
  374.   {$EXTERNALSYM FORMATDLGORD31}
  375.   FORMATDLGORD31 = 1543;
  376.   {$EXTERNALSYM FORMATDLGORD30}
  377.   FORMATDLGORD30 = 1544;
  378.   {$EXTERNALSYM PAGESETUPDLGORD}
  379.   PAGESETUPDLGORD = 1546;
  380.   {$EXTERNALSYM NEWFILEOPENORD}
  381.   NEWFILEOPENORD = 1547;
  382.  
  383. type
  384.   {$EXTERNALSYM tagCRGB}
  385.   tagCRGB = record    { RGB Color }
  386.     bRed: BYTE;
  387.     bGreen: BYTE;
  388.     bBlue: BYTE;
  389.     bExtra: BYTE;
  390.   end;
  391.   {$EXTERNALSYM CRGB}
  392.   CRGB = tagCRGB;
  393.  
  394. implementation
  395.  
  396. end.
  397.  
  398.